Shareware Grab Bag/Shareware Grab Bag.iso/007/boostrs.arc/CENTER.PAS

Pascal/Delphi Source File | 1980-01-01 | 888 b | 42 lines

{ ---------------
  CENTER a string
  --------------- }

Function CENTER ( A : AnyString;
                  N : Integer;
                  Pad : Char )  : AnyString;
                  { AnyString is type String[255] }

begin
  Inline ( $1E/
           $8D/$9E/$08/$01/
           $8B/$46/$06/
           $36/$88/$07/
           $43/
           $8A/$4E/$08/
           $30/$ED/
           $29/$C8/
           $77/$05/
           $31/$C0/
           $EB/$12/$90/
           $D1/$E8/
           $50/
           $8B/$FB/
           $8B/$46/$04/
           $8B/$4E/$06/
           $16/
           $07/
           $FC/
           $F3/$AA/
           $58/
           $01/$C3/
           $8B/$FB/
           $8D/$76/$09/
           $16/
           $1F/
           $8A/$4E/$08/
           $30/$ED/
           $FC/
           $F3/$A4/
           $1F);
end;